Mobiclic 32/Mobi_32.iso/pc/DATA/Com/com02_27.dir 1/00005_Script_5

Text File | 2001-01-08 | 760b | 35 lines

-- commandes des menus

on suite
  put value(word 1 of field "ListeMag") into L
  set magtotal = count(L)
  set mag = value(field "numero")
  set numero = getPos(L,mag)
  set suivant = numero + 1
  if suivant > magtotal then
    set suivant = suivant - magtotal
  end if
  set magsuivant = getAt(L,suivant)
  acces "com02_" & magsuivant
end

on retour
  put value(word 1 of field "ListeMag") into L
  set magtotal = count(L)
  set mag = value(field "numero")
  set numero = getPos(L,mag)
  set prescedent = numero - 1
  if prescedent < 1 then
    set prescedent = prescedent + magtotal
  end if
  set magprescedent = getAt(L,prescedent)
  acces "com02_" & magprescedent
end

on revoir
  --
end

on debut
  acces "com01"
end